Developer Product duplicating purchase?

I have a few Developer products named Gold100, Gold500, Gold1000 and Gold2500 (inside a folder called which gives players cash. They are inside a folder called Gold, inside a folder called Gamepasses

I have a button which gets pressed and sends a remote event to the server. The server finds the remote event and then Prompts a Dev Product Purchase. When they buy it, They a function called ProcessReceipt will run and it will loop through a folder in ReplicatedStorage which has folders named after all the gamepasses.

Here's the problem: Everytime I make a purchase. It will loop again. For example if I pay for 2500 Gold once. It will give me 2500 Gold. If i pay for 2500 Gold twice, it will give me 2500 Gold, and then give me another 2500 Gold.

function ProcessReceipt(ReceiptInfo)
	
	local Player = Players:GetPlayerByUserId(ReceiptInfo.PlayerId)--Finds player
	
	if Player then--if they exist		
			
		for i,v in pairs(ReplicatedStorage.Gamepasses.Gold:GetChildren())do
			
			print("RECEIPT INFO PRODUCT ID =",ReceiptInfo.ProductId,"&","GOLD ID =",v.ProductId.Value)
			
			if v.ProductId.Value == ReceiptInfo.ProductId then --If the product id matches the one the player bought
				
				print("Found correct product id")
				
				Player.Essentials.Currency.Gold.Value = Player.Essentials.Currency.Gold.Value + v.GoldPurchase.Value
				--Player's Gold Value adds the amount of gold from the gamepass to the player
				
				break--gets out of loop
			end
			
		end
		print("went through all gold gamepasses")
			
	end
	
end



RemoteEvents.C2S.Gamepass.Gold100.OnServerEvent:Connect(function(Player)--finds RE
	
	local ProductID = GamepassFolder.Gold.Gold100.ProductId.Value --Gets Value of Product ID (This is a string value which stores the value of the developer product id_
	
	MarketplaceService:PromptProductPurchase(Player,ProductID)--Prompts purchase
	
	
end)

RemoteEvents.C2S.Gamepass.Gold500.OnServerEvent:Connect(function(Player)
	
	local ProductID = GamepassFolder.Gold.Gold500.ProductId.Value
	
	MarketplaceService:PromptProductPurchase(Player,ProductID)
end)

RemoteEvents.C2S.Gamepass.Gold1000.OnServerEvent:Connect(function(Player)
	
	local ProductID = GamepassFolder.Gold.Gold1000.ProductId.Value
	
	MarketplaceService:PromptProductPurchase(Player,ProductID)
end)


RemoteEvents.C2S.Gamepass.Gold2500.OnServerEvent:Connect(function(Player)
	
	local ProductID = GamepassFolder.Gold.Gold2500.ProductId.Value
	
	MarketplaceService:PromptProductPurchase(Player,ProductID)
end)


MarketplaceService.ProcessReceipt = ProcessReceipt--Runs every time the player clicks buy

Would be nice if someone could help.