Try Island Yachts, which charters Island Packets out of Redhook (east end of St Thomas).