DSolve[Derivative[1][y][x] == -(Sqrt[a]*(Sqrt[a]*x^3 + Sqrt[a]*x^4 - 2*Sqrt[a*x^4 + 8*y[x]]))/(2*(1 + x)),y[x],x]