This works for me:
f[a_] := ListPointPlot3D[Table[Sin[a + j^2 + i], {i, 0, 3, 0.1}, {j, 0, 3, 0.1}]]
list = {};
Do[list = Append[list, f[i]], {i, 0, 5, .1}]
ListAnimate[list]
Perhaps you can share a simplified version of your code, so I can take a look at what might be wrong about it?