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 &];