data=Select[ParallelTable[Graphics3D[{Cuboid/@Position[CellularAutomaton[{n, {2, 1}, {1, 1,1}},{{{{1}}},0},{{{8}}}],1]},Boxed->False],{n,2,120,2}],Length[#[[1,-1]]]>3&];

GraphicsGrid[Partition[data,7],Frame->All,ImageSize->Medium]