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