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