The code you posted is incomplete, so doesn't execute. But I can't imagine ListPointPlot3D having problems with a few thousand points.
In[1]:= points = Table[RandomReal[{-1, 1}, 3], {3264}];
In[2]:= points // Dimensions
Out[2]= {3264, 3}
In[3]:= ListPointPlot3D[points]
