Is it possible to manipulate the limits in in your table? How can I say to mathematica that I want to stop the evaluation in certain moment (Table)? I was trying to do this

F[x_]:=(x - 4) (x - 8) (x)
F2[x_] := If[0 < F[x] < F[x + 0.1], F[x]]
TableForm[Table[F2[x], {x, 0, 10, 0.1}]]
Plot[F[x], {x, -1, 9}]

This is a graph of a polynomial of third grade, what I need is to take one section of this function beginning in zero and ending near the critical point, I know that I can do it with calculus, but this method is better for me. I need that the upper limit finish when F[x] < F[x + 0.1] but I don´t know how to write it in Mathematica.

Greetings :)