fn IntersectsSel =
(
	problemObjs = #()
	safeNodes = selection as array
	testers = for i in objects where (findItem safeNodes i) == 0 collect i
 
	for obj in safeNodes do --//test each object in the selection
	(
		for p in testers where intersects obj p do appendIfUnique problemObjs p --//test the intersection to the scene objects
	)
	select problemObjs
)
IntersectsSel()

select all object that intersect each other

SELECT INTERSEPTIONS OBJECTS

Maxscript