@Markiyan Hirnyk In the uploaded worksheet SolveEquations is changed to include AllSolutions=true, solutions=1. Option initialpoint which is included in SolveEquations in the original worksheet is not allowed.
When the worksheet is executed, each iteration of the for..do loop takes considerable time.
The DEBUG command following SolveEquations shows that the solved value A is very close to 2.5 for the first 5 iterations, then for the sixth iteration it becomes negative 2.5.
The values of A produced by SolveEquations in the original worksheet, for the first 3 iterations are 2.4696, 2.3305, and 2.2001 through 4 decimal places. These values produce the correct first 3 animation frames.