{points,faces}=PolyhedronData["Cube",{"VertexCoordinates","FaceIndices"}];

Function[iteration,
Graphics3D[(Polygon[iteration[[1]][[#]]]&/@iteration[[2]])]
]/@NestList[CatMullClark,{points,faces},3]//GraphicsRow